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ASSF IND ibs ep-19 AX-11 Bliss-32 V4.0-742 
14- att 90: ge: 3 BASRTL.SRCJBASF IND.B32;1 
MODULE BASSFIND ( ! Basic ts fie construc 
BASFIND.B 


we = *1-009" ! File: 2 Edit: MDL 1009 


leeeeeeereeeteeeeeeeeeeneeeeeeeeeereteeeeeeteretereeetenteeeeeeteneteneneneee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS 
OF Tw $ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
i MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: se ookat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!@ SOFTWARE ON EQUIPMENT WHICK IS NOT SUPPLIED BY DIGITAL. 
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tee 
! FACILITY: 


WN "SO OCONOUS WN" OOONOUS 


Basic support Library - user callable 
i ABSTRACT: 


ssssssesssssses 


6 This module is the UPI level of the Basic ve construct. Initially, 
7 it contains only the code for sequential 1/0. This module will set 
3 3 up the 1/0 data base for the LUN and go directly to the REC Level. 

40 01: 

41 1 ! ENVIRONMENT: 

$¢ § User access mode - AST reentrant. 

44 4 

45 5 ! 

$8 § ! MODIFIED BY: 

48 i DGP, 27- Feb-79 : 3 YERSION, 1 

49 


- Bt = - or ieine 

4 a BASSE IND’ GRECORD® DGP 02-Mar-7 
? work on relative 110. 0GP Obemar-79 
5 


éP 
Set up ISBSA_USER_FP. ies ate -1979 
- $ - Check for viftuel” use of th e; set block use. DGP 16-Oct-79 
= Add support for RFA access and manual record locking. PLL 1-Jun-82 
- 3 - RFAs are pessed by ref. PLL 4-Jun- 
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: AUTHOR: Donald G. Petersen, CREATION DATE: 27-Feb-79 
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SWITCHES: 


icsEectabe 00:8:8) Yat Les, atte 


BASRTL.SRCIBASF IND.B32;1 


SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


; LINKAGES 


REQUIRE "RTLIN:OTSLNK'; 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSFIND_KEY : NOVA 


VALUE, 
BASSFIND_RECORD : NOVALUE, 


BASSFIND™: NOVALUE 
BASSFIND_RFA : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘RTLML:OTSISB'; 
REQUIRE "RTLML:OTSLUB'; 
REQUIRE "RTLIN:RTLPSECT’; 
LIBRARY ‘RTLSTARLE'; 


‘ 
MACROS: 
NONE 


EQUATED SYMBOLS: 
NONE 

PSECT DECLARATIONS: 

ECLARE_PSECTS (BAS); 


OWN STORAGE: 
NONE 


EXTERNAL REFERENCES: 


. 
‘ 
. 
' 
. 
‘ 
. 
t 
. 
' 
. 
' 
. 
‘ 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
1 
. 
' 
. 
' 
. 
' 
. 
‘ 
. 
' 
. 
' 
. 


EXTERNAL ROUTINE 


Define all Linkages 


UPI Level Indexed FIND 
UPI level Relative FIND 
UPI level sequent tat FIND 
UPI Level RFA FIND 


ISB definitions 

LUB definitions 

Define DECLARE_PSECTS macro 
Starlet system macros 
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4 
ASSF IND 18. $ep-1984 00:28: AX-11 Oi iss =32 v4.0-742 Page 4 
+ 885 13-808- 138. 90:48: 6) YBASRTL” SRO} BASF IND. B32;1 . (2) 
; 138 ar$ 1 nett tb 10 : NOVALUE, ! Signal fatal i 1/0 error 
Ba 947 1 BA SpeReC FIN : JSB_REC_IND1 NOVALUE, ' REC level = FIND indexed 
. 4 Vv baat Vv 
121 948 1 SREC_FRE 438 RECS NOVALUE, ' REC Level = RMS inter tece FIND relative 
a | ¢ 949 1 BASSEREC TE SE : JSB_REC NOVALUE, ' REC level processing = RMS interface 
. % 950 1 ' FIND sequential 
: 124 951 1 BASSSREC_FRFA : JSB_REC2 NOVALUE, ' REC level - Ags: ." RFA 
: 125 $326 1 BAS$S$CB “BUSH : JSB_CB_PUSH NOVALUE, ' Load register CC 
3 : $ ah ' BASSSCB~ POP : JSB_CB_POP NOVALUE; ' Done with pentaber ccB 
: 128 0955 1 !4 
; 129 0956 1 ! The following are the error codes used in this module. 
; 130 0957 1 'I- 
: 131 0956 1 
ss ; 0959 1 EXTERNAL LITERAL 
cme 0960 1 BASSK_ILLILLACC : UNSIGNED (8), ' Illegal or illogical access 
: 134 0961 1 BASSK_10_CHANOT : UNSIGNED (8), ! 1/0 channel not open 
; ty B30 : BASSK_ILCRECLOC : UNSIGNED (8); ! Illegal record locking clause 


4 

| BASSF IND bese -1984 00:28:21 AX-11 Bliss-32 V4.0-742 
|" 1278 08-1 3b 90:88:88 BASRTL.SRCIBASF IND. 83251 
ls 138 0964 1 GLOBAL ROUTINE BASSFIND ( ! FIND sequential 

; 139 965 1 ° ' logical unit number 

; 140 9 1 LOCK_FLAGS ! manual locking bits 

> (141 967 1 ) : NOVACUE = 

5 1o6 968 1 

; «6146 9 1 !e4 

> (144 970 1 ! FUNCTIONAL DESCRIPTION: 

> «(165 8353 1! 

3; «6146 S7e 1! This routine will set up the 1/0 data base for this LUN if necessary 

3 147 975 1! and then go directly to the REC Level. When control is returned to 

: «148 974 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 

3 138 Bf? ' face to RMS is done at the REC level. The next record is located. 

: Ts 0977 1 ! FORMAL PARAMETERS: 

3 136 0978 1! : 

; 0979 1! NIT.rlu.v Logical unit number 

: 1546 0980 1! LOCK_FLAGS.rlu.v] if present, bits to pass on to the record level 

3 39 0981 1! to control manual record locking 

: 156 0982 1! 

is wae 0985 1 ! IMPLICIT INPUTS: 

; 158 0984 1! : ‘ 

; 4159 0985 1! LUBSV_VA_USE virtual use of this file 

; 160 0986 1! 

s 16) 0987 1 ! IMPLICIT OUTPUTS: 

3 196 0988 1! 

; 16 0989 1! 1SB$B_STTM_TYPE the statement type jet ame 

3 168 oa } } LUB$V_BLK_OSE non-virtual array use of this file 

; 166 0992 1 ! COMPLETION CODES: 

3 167 0995 1! 

; 168 0994 1! NONE 

: 169 0995 1! 

: 170 0996 1 ! SIDE EFFECTS: 

: 171 0997 1! 

s We 0998 1! Hogs # 

s V7 0999 1! BAS$K_10_CHANOT (1/0 channel not open) 

: «176 1000 1! BASSK_ILCILLACC (illegal or illogical access) 

3; 175 1001 1! 

3 «176 Inne 1 f= 

. Ore 1003 1 

3: «178 1004 BEGIN 

; 179 1005 

: 180 1008 BUILTIN 

> «181 100 F 

; 182 1008 ACTUALCOUNT; 

; #18 1009 

3; «184 1010 GLOBAL REGISTER 

: 185 1011 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

: 186 1otg 

: 187 101 LOCAL 

; 188 1014 FMP : REF BLOCK C, BYTE), 

; «#4189 1015 FLAGS; 

; 190 ots 

3; «6191 101 ' LITERAL 

: Hb 1018 K_LOCK_ARG = 2; 

3; «19 1019 

3; (194 1020 FMP = FP; 


dh chctaneciclempebialgasiaeiec bd cuesins dia etsdenlianicmanancscadeatnpeniag indie Aiea eiatniiaaaisiectdtediatsed 


Page 


“LARS 3A STA TPE Re se ee a ae 


dD 4 

| BASSF IND 16-Sep-1984 00:28: AX-11 Bliss-32 V4.0-742 Page 
- 18-88-1398 90: ¢8:¢h BASRTL. RCIBASF IND .B32:1 ° 
3 195 1021 '¢ 

3 1 § ! Allocate the LUB/ISB/RAB for this unit if necessary. Store new CB (con- 
\3 136, : ? trol block) in OTSSSA_CUR_LUB. Store signed unit number in LUBSW_LUN. 
: 199 1025 2 _ BASS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 

; 90 10ee ¢ CCB CISBSA_USER_FP) = .FMP"CSFSC_SAVE_FPI; 

; 4 1028 i If the channel is not open, give an error. 

3 0 1029 ! FIND is not permitted on channel 0. 

: $08 198) 5 

; 96 19 é IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BAS$K_IO_CHANOT); 
: 20 1034 2 !¢ 

3 $9 1035 ! Now that the data base is in place, store the statement type and go 
: 19 1938 directly to the REC level. 

; ig 1038 "CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_FSE; 

; i3 ee ; Check for virtual array usage and set block usage 

: 216 1048 " 1F_.CCB_ CLUBSV_VA_USEJ THEN BASS$STOP_IO(BASSK_ILLILLACC); 

; i? 1Rer CCB CLUBS$V_BLK_USEJ = 1; 

> 219 1045 IF ACTUALCOUNT () LSS K_LOCK_ARG 

: 220 1966 

: 21 104 FLAGS = 0 

3 $§ 1048 ELSE 

; 2 1049 BEGIN 

: $¢ 1050 :¢ , ‘ 

3 H 13) } The ULK bit must set unless this is a REGARDLESS clause. 

: $55 1988 CASE .CCB CRABSV_ULK] FROM 0 TO 1 OF 

5 sso 1054 SET 

g $3 1055 (0): 

; 30 1096 IF (.LOCK_FLAGS AND RABSM_RRL) NEQ 0 

; 23: 1058 FLAGS = .LOCK_FLAGS 

; $3 1059 ELSE 

é 34 1060 BASSSSTOP_IO (BASSK_ILLRECLOC); 

: 235 1061 

; 236 1066 (1): 

: 37 106 FLAGS = .LOCK_FLAGS; 

2 8 1064 TES; 

: 9 1065 END; 

; 240 1966 

: rt Ht BASSSREC_FSE (.FLAGS); 

: 248 Hs 44 ! Now that the FIND has been done, pop the CCB off the 1/0 system. 

3 245 1071 BASS$SCB_POP (); 

; 246 1072 END; 'End of BASSFIND 

TITLE paser ine 
-IDENT \1=-00 


REE 55 DR EN IE NEL IBRD bE NS ETE 7 AE. ARE TA SL 
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4 
| BASSF IND 16-Sep-1984 00:28:21 AX=-11 Bliss-32 v4.0-742 Page 7 
14-Sep-1984 90:68: €) YBASRTL SRe BASF IND.832;1 9 3) 
| -EXTRN BASSSSTOP_I0, BASSSREC_FIN 
-EXTRN BASSSREC_FRE, BASSSREC_FSE 
-EXTRN BASSSREC-FREA, BAS$$CB~PUSH 
| -EXTRN BASS$SCB_POP, BASS$K_ILLTLLACC 
-EXTRN BAS$K_IO_CHANOT 
-EXTRN BASSKTILCRECLOC 
j 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
083¢ 00000 .ENTRY BASSFIND, Save R2,R3,R4,R5,R11 : 0964 
54 000000006 00 4 $800 MOVAB BASS$SSTOP_IO, R4 : 
33 D OD 99 MOVL FP, FMP : 1020 
9 08 cE 00C MNEGL #8, R + 1025 
5 06 =A 900F OVL UNIT, R2 : | 
000000006 00 16 O13 JSB BAS$$CB_PUSH : | 
FF4C 6B oC A 09 0001 MOVL 12(FMP)> -180(CCB) t 1026 
97 FC oA 3 O01F BLBS  -4(CCB) : 1032 
E 006 8F 9A 00023 MOVZBL M#BAS$K_[0 CHANOT, -(SP) : 
64 1 fe 0027 CALLS #1, BASSS$STOP_IO 3 
FF71 (CB 3 90 O002A 1$ MOVE #51, -143(CCBY : 1038 
97 FF AB £9 000¢F BLBC }«3=E._—s«= 1: ¢cB) ,_ 2 + 1042 
E 006 8F 9A 00033 MOVZBL M#BAS$K_{LLILLACC, -(SP) : 
64 01 4} 00037 CALLS #1, BASSS$STOP_IO 3 
FF OAB 02 88 OO03A 28 BISB2 #2, -1(CCB) t 1043. 
02 6C 91 0003E CMPB.sss« CAP), > 1045 
04 1€ 00041 BGEQU 3$ : 
52 D4 00043 CLRL «FLAGS + 1047 
20 11 00045 BRB § : 
53 06 AB 01 0¢ EF 00047 3$: EXTZV a2. #1, 6(CCB), R3 : 1053 
01 00 53 CF 0004D CASEL R3, #0, #1 : 
0012 0004 00051 4$: . WORD 2$-68.- : | 
09 08 Ac 03 £0 00055 S$: BBS #3, LOCK_FLAGS, 6$ + 1056. 
7E 00G 8F 9A OO0SA MOVZBL #BAS$K_ICLRECLOC, -(SP) 3 1060) 
64 01 FB 0005E CALLS #1, BASSS$STOP_IO : | 
04 11 00061 BRB 7 : 1056) 
52 08 AC DO 00063 6$ MOVL _ LOCK_FLAGS, FLAGS + 1063. 
50 52 DO 00067 7$ MOVL FLAGS, R > 1067 | 
000000006 00 16 0006A JSB BASSSREC_FSE ; 
000000006 00 16 00070 JSB BAS$$CB_POP : 1071 | 
04 00076 RET + 1072. 
; Routine Size: 119 bytes, Routine Base: _BASSCODE + 0000 


; 267 1073 1 
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BASS$F IND 16-Sep-1984 00:28:21 AX-11 Bliss-32 V4.0-742 
|" 10-8 08=138e 90:98 8s EBASRTL. SREIBASF IND -BS2¢1 
3 «269 1074 1 GLOBAL ROUTINE BASSFIND_KEY ( ! FIND indexed 

3 0 1075 (1 IT ' Logical unit number 

§ 1 1 6 1 KEY_NO, ; =| of reference number 
E ¢ 1077 1 REL_OP, ! relational operator 

: 1 4 1 EY, ' the key 

$ 4 1079 1 LOCK_FLAGS ! manual locking flags 

; 5 1080 1 ) : NOVACUE = 
13 $ 1081 1 

3 ef 1 ¢ 1 tee 

3 28 8 : } FUNCTIONAL DESCRIPTION: 

: 260 1% >a This routine will set up the 1/0 data base for this LUN if necessary 

; 261 1 7 ! and then go directly to the REC level. When control is returned to 

; & 1087 1! this routine, it pops the CCB off of the 1/0 system. The actwal inter- 

; 26 1088 1! face to RMS is done at the REC level. The next record is located 

; re hs ; } based on the key of reference specified. 

; 66 1091 1 =! FORMAL PARAMETERS: 

; 267 1036 1! 

; 268 1093 1! UNIT. rlu.v logical unit number 

; 269 1094 1! KEY_NO.rl.v var of reference number 

: 270 1095 1! REL_OP.rl.v relational operator 

; 271 1096 1! KEY.rt.dx the key desired , 

3 % 1097 1! CLOCK_FLAGS.rlu.v] if present, specifies bits to pass on to record level 

3; a7 1098 1! to control manual record locking 

3 276 1099 1! 

; 275 1100 1 ! IMPLICIT INPUTS: 

3 a 1101 1! f 

3 $e 1108 ; } LUBSV_VA_USE virtual array use of this file 

; 279 1106 1! IMPLICIT OUTPUTS: 

; 280 1105 1! 

: 281 1106 1! I1SB$B_STTM_ TYPE the statement type =—_ 

3 a a 14 : LUB$V~BLK_OSE non-virtual use of this file 

: Be 1109 1 ! COMPLETION CODES: 

; 285 1110 1! 

; 286 1111 1! NONE 

3 ent aai6 : 

; 288 111 i ! SIDE EFFECTS: 

3; 289 11144 1! 

; so 1115 1! signals: 

; 291 1116 1! BASSK_I0_CHANOT (1/0 channel not open) 

: 3 1117 1! BASSK_ILCILLACC (Illegal or illogical access) 

: 2g ae 1! 

3 94 111 1 !-- 

: 295 1120 1 

; 2M 1121 BEGIN 

:; 297 11 § 

5 98 11 BUILTIN 

3; 299 1124 FP 

; 300 1125 ACTUAL COUNT; 

3 01 11 $ 

3 34 11 GLOBAL REGISTER 

3; 30 1128 CCB = K_CCB_REG : REF BLOCK C, BYTE]; 

, 04 1129 

3 305 1130 LOCAL 


— a 
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| BASSF IND 1-3 1984 00:28: AX=-11 Bliss-32 V4.0-74 
itd 1 n30p=138e 99:62:85 BASRTL SRCIBASF IND 85201 
FMP : REF BLOCK C, BYTE), 

FLAGS; 


LITERAL 
K_LOCK_ARG = 5; 
FMP = .FP; 
'¢ 
' Allocate the LUB/ 


ISB/RAB for this unit if necessary. Store new CB (con- 
} trol block) in OTS$$ 


A.CUR_LUB. Store signed unit number in LUBSW_LUN. 


BASS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN): 
CCB CISBSA_USER_FP] = .FMP"CLSFSC_SAVE_FP); 


; If the channel is not open, give an error. 


If ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BAS$K_IO_CHANOT); 
'¢ 
! Now that the data base is in place, store the statement type and go 
directly to the REC level. 
"CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_FIN; 
Check for virtual array usage and set block usage 


: IF .CCB CLUBSV_VA_USE] THEN BASSS$STOP_IO(BASSK_ILLILLACC); 


WNAAAIARPIPONUPINPOPONNDY 2 9 2 SS SO OS SS 


CCB CLUB$V_BLK_USEJ = 1; 
IF ACTUALCOUNT () LSS K_LOCK_ARG 


WN 29 CONAUE WIN (OOD NA UNE WIN | 0 ODNOAU EWN (OO BNOUE WN OOO NOUS Win 


37 
3g FLAGS = 0 
39 ELSE 
9 BEGIN 
42 The ULK bit must set unless this is a REGARDLESS clause. 
4 CASE .CCB CRABSV_ULK] FROM 0 TO 1 OF 
45 SET 
6 (0): 
44 IF (.LOCK_FLAGS AND RABSM_RRL) NEQ 0 
49 FLAGS = .LOCK_FLAGS 
50 ELSE 
31 BASSSSTOP_IO (BAS$K_ILLRECLOC); 
3g (1): 
54 FLAGS = .LOCK_FLAGS; 
55 TES; 
2$ END; 
: BASSSREC_FIN (.KEY_NO, .REL_OP, .KEY, .FLAGS); 


Now that the FIND has been done, pop the CCB off the 1/0 system. 
BAS$SCB_POP (); 


Be Se Se Se Be Se Be Se Be Se Se Se Se Se Ge Se Se Se Fe Se Se Ge Se Se Se Ge Se Se Se Se He Se Se Se Ge Ge SH Se Ge Fe Se Se SF Se Ge Se Os Se Se Se Se Se Se Se Se eae 
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4 
ASSF IND 16-Sep-1984 8: AX-11 Bliss-32 V 4 <0 742 P 10 
s 14-Sep 7198¢ 9: gf ‘8 BASRTL.SRC BASF IN >.832;1 oe as 
E 363 1188 1 END; 'End of BASSFIND_KEY 
j 
/ 
| 083C 00 -ENTRY BASSFIND_KEY, Save R2,R3,R4,R5,R11 3 1074 
‘ 000000006 3 0 HOVAB BASSSSTOP_10. RG F ons 
| 9 8 cE 09 C MNEGL * RO + 1142 
06 AC D F MOVL UNIT, R2 : 
| 000000006 00 1 0013 JSB AS$$CB_PUSH : 
FF4C ce C AS OD 1 MOVL 2(FMP)> -180(CCB) + 1143 
Q FC AB f 001F BLBS  -4(CCB). 1 + 1148 
E 006 A 00¢3 MOVZBL #BASS K_{0 CHANOT , -(SP) : 
64 1 fe 00 CALLS BASS$STOP ; 
FF71 (B F 90 O002A 18: MOVB oy 143( ceey ” + 1154 
97 FF AB 9 0002F BLBC CB), 28 : 1158 
E 006 a A 00033 MOVZBL M#BASSK [LLILLACC, -(SP) : 
64 1 FB 00037 CALLS #1, BASSS$STOP_IO ; 
FF AB 02 88 09 A 28: BISB2 #2, -1(CCB) + 1159 
: ect eg ie 
33 d4 90043 CLRL FLAGS : 1163. 
52 06 a8 01 2 Ef 00047 3$: EXTZV a. "1, 6(CCB), R2 + 1169 
0012 0004 00051 4$: . WORD 55-48.- : 
09 14 «ac 03 E0 00055 5$: BBS #3, LOCK_F : 1172 
7E 006 8F 9A 0005A MOVZBL #BAS Kes SLRECLSC. sp : 1176 
be 4% 90081 gaa. 9" » BASSESTOP 1172) 
53 16 AC 00 00063 6$: MOVL _ LOCK_FLAGS, ease : 1179 
3h. AE eB dames AVE EAM: My 
000000006 00 16 0006F JSB BASSEREC PrN : 
000000006 00 16 00075 JSB BAS$$CB_POP : 1187 
04 00078 RET : 1188 
; Routine Size: 124 bytes, Routine Base: _BASSCODE + 0077 


; 364 1189 #1 


ae 


ey 1é-sep-1964 90:28:2) yaNet BL in4=32 v4. 0-742. 


1190 1 GLOBAL ROUT INE BASSFIND_RECORD ( ' FIND relative 
1191 «#1 UNI : Logical unit number 
1138 1 RECORD NUM, ' relative record number 
11 1 LOCK _FCAGS ! manual Locking flags 
1138 : ) : NOVACUE = 
1138 1 tee 
1% ! FUNCTIONAL DESCRIPTION: 
1199 1 i This routine will set up the 1/0 data base for this LUN if necessary 
1200 1! and then 9° directly to the REC Level. When control is returned to 
1 Bt 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
O¢ : face to RMS is done at the REC level. The next record is located. 
i é FORMAL PARAMETERS: 
1 1 UNIT. rlu.v logical unit number 
1207 1! RECORD_NUM.rl.v relative record number 
1208 1! CLOCK_FLAGS.rlu.vJ if present, specifies bits to pass on to record 
; +4 : level to control manual record locking 
1 ; IMPLICIT INPUTS: 
' 13 : ! LUBSV_VA_USE virtual array use of this file 
15 i IMPLICIT OUTPUTS: 
1 9 1/ 1SB$B_STTM_TYPE the statement type 
: 18 ! LUBSV~BLK_OSE non-virtual array use of this file 
$1 ! ; COMPLETION CODES: 
1 ; 1 NONE 
1223 1! 
isse ; SIDE EFFECTS: 
1 36 1! Signals: 
1227 1! BASSK_IO_CHANOT (1/0 channel not open) 
! 33 : BASSK_-ILCILLACC (Illegal or illogical access) 
1230 1 i-- 
1231 1 
rt + \¢ § BEGIN 
eis 1 ne 
aig 6 ACTUAL COUNT; 
414 1238 GLOBAL REGISTER 
oi? : iB CCB = K_CCB_REG : REF BLOCK C, BYTE); 
£19 1241 LOCAL 
418 1 4g FMP : REF BLOCK C, BYTE), 
$13 ! vb FLAGS; 
<3 12465 LITERAL 
422 1246 K_LOCK_ARG = 3; 


a 


g 
ie $F IND 
; 423 1267 
; 426 1 ‘3 
13 : 5 } 4 
3 2 $ : ° 
; 4 § 1 § 
; 4 1254 
§ : 1 : 5 
; 4 i 1 $ 
3; «4 1 
; 455 1 
3; 46 1260 
3; 4 1261 
: 438 1 o¢ 
; 439 126 
; 440 1264 
: 7) : 65 
3; 46 1 e9 
3 446 1 $8 
: 44 126 
: 46 1270 
: 64 1271 
: 648 1 % 
3; 469 127 
: 450 1274 
3 651 1275 
: 65 127 
; 45 127 
3; 654 1278 
3; 455 1279 
; 45 1280 
: 08% 1582 
3; 4659 1 Hy 
3; 460 1 Be 
; 461 1285 
12 158 
3: 464 1 HH 
3; 465 1289 


4 
HbeSeo-1984 O0:28:2)  yaneHt Bl iag-82 v4-08742 
- FMP = .FP; 


i Allocate the LUB/1SB/RAB for this unit if necessary. Store new CB (con- 
trol block) in OTSSSA_CUR_LUB. Store signed unit number in LUBSW_LUN. 


BASS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 
CCB CISBSA_USER_FP] = .FMP-CSFSC_SAvE_FP); 


; Give an error if the channel is not open. 


If ( NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BASSK_IO_CHANOT); 
'¢ 
! Now that the data base is in place, store the statement type, store the index, and go 
directly to the REC level. 


ccB FLUBSst 06 RECNO] = .RECORD_NUM; 
CCB CISBSB“STTA_TYPE) = ISBSK_ST_TY_FRE; 


; Check for virtual array usage and set block usage 


If .CCB CLUBSV_VA yse THEN BASSS$STOP_IO(BASSK_ILLILLACC); 
CCB CLUBS$V_BLK-USE) = 1; 


IF ACTUALCOUNT () LSS K_LOCK_ARG 


FLAGS = 0 
ELSE 


IF (.CCB CRABSL_ROP] AND RABSM_ULK) EQL 0 
ns BASSSSTOP_10 (BASSK_ILLRECLOC) 
: FLAGS = .LOCK_FLAGS; 
< BASSSREC_FRE (.FLAGS); 
; Now that the FIND has been done, pop the CCB off the 1/0 system. 


BASSSCB_POP (); 
END; !End of BASSFIND_RECORD 


083C 00000 -ENTRY BASSFIND RECORD, Save R2,R35,R4,R5,R11 
4 000000006 90 3 09 MOVAB BASSS$STOP_IO, R4 
3 D OD MOVL FP, FMP 
08 ce 000C MNEGL #8. RO 
4 A 9 OF MOVL 
000000006 0: 13 JSB AS$$CB_PUSH 
FF4C cB C AS OD 1 MOVL 2(FMP)> =180(CCB) 

FC oA f OO1F BiBS -4(CCB) 

t 006 8F 9A 00023 MOVZBL #BASSK_[O_CHANOT, -(SP) 


| Kk 4 
35" 1enSepmi9be 11:56:58 — EBASRTLeSRe ease Nb Osos1 


64 01 F 0 7 CALLS a, oBAsssstor }0 
é AB 08 aC A 18: MOVL merece 3 (CCB) 
FF?I 8 2 OoF MOVE 
fF AB : BLBC cece) 2 
E 006 8F 9A MOVZBL ae ifhce. -(SP) 
64 1 £ C CALLS #1, BASSSSTOP_IO 
FF 2 8 F 2%: BISB2 #2 “1 (6B) 
0 ¢ 43 ¢ AP), # 
4 1€ ug BGEQU 
£1 CLRL FLAGS 
09 > b ¢ 3$ Bae 0, (CCB) 
E 006 8F BR See MOVZBL TBAgSK [tifectoc, -(SP) 
64 1 Fe 24 CALLS #1, BASSS$STOP_I0 
4 1 7 BRB 
52 oc ac D 59 4$: MOVL LOCK eft S, FLAGS 
ry) 5D 5$: MOVL FLA 
00000006 16 00060 J$8 sees eee FRE 
00000006 16 00066 JSB BAS$$CB_POP 
04 0006C RET 


; Routine Size: 109 bytes, Routine Base: _BASSCODE + O0F3 


sg TECSESHBEL QRBESL WSU OER Rete? 


; 467 1 1 GLOBAL rtf BASSFIND_RFA ( ' FIND by RFA 

g $38 1 1 UNIT, ' Logica unit number 

: & 1 § 1 RFA, ' RE 

; 4 1295 1 LOCK_FLAGS ! manual locking fiags 

3 47 1 1 ) : NOVACUE = 

: 1598 | iss 

; 47 39 t FUNCTIONAL DESCRIPTION: 

: 47 4 38 1} This routine will set up the 1/0 data base for this Lun if necessary 
3; 67 1 1! ond then directly to the REC Level. When control is returned to 
3 $78 1307 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 
3; 4 1 § 1! face to RMS is done at the REC level. The record specified by the 
5 ¢ : ; } : RFA is Located. 

¢ 1305 1 | FORMAL PARAMETERS: 

s 6 1 o6 1! 

3 «4 1307 1! UNIT. rlu.v hostcal unit number 

; 485 1308 1! RFA. rx. RFA address 

; 4 1309 1! CLOCK_FLAGS.rlu.v) if present, specifies bits to pass on to record 
3 ret ! \9 : level to control manual record locking 

; 489 1 { IMPLICIT INPUTS: 

; red : 13 : LUBSV_VA_USE virtual array use of this file 

; 498 1316 1 { IMPLICIT OUTPUTS: 

: 495 1 18 1: 1SB$B_STTM_TYPE the statement type 

3 $38 : i : LUBSV~BLK_OSE non-virtual array use of this file 

; 498 1321 i COMPLETION CODES: 

Bo ijec= 

; 9 1325 i SIDE EFFECTS: 

: 504 1 $ 1 Signals: 

; 505 1 3 1! BAS$K_IO_CHANOT (1/0 channel not open) 

3 o8 ' : BASSK_ILCILLACC (Illegal or illogical access) 

‘a ii 

; 10 5 BEGIN 

; lg 1335 BUILTIN 

: 1 $ ACTUAL COUNT; 

; 1 1339 GLOBAL REGISTER 

: 3! 1340 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

; 15 1 ; LOCAL 

3 0 1 FMP : REF BLOCK C, BYTE), 

; 1 : : FLAGS; 

; ‘ 1346 LITERAL 
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Dp 
) BASRTL.SRCJBASF IND.832;1 (6) 
K_LOCK_ARG = 3; 
FMP = .FP; 
'¢ 


i allocate the LUB/ISB/RAB for this unit if necessary. Store new CB (con- 
trol block) in O1S$$A CUR CUB. Store signed unit hunber in LUBSW_LUN. 


BASSS$CB_PUSH (.UNIT, LUBSK_ILUN MIN); 
CCB CISBSA_USER_FP) ‘= PRP" ESFSC. SAVE FP); 


Give an error if the channel is not open. 


IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BAS$K_IO_CHANOT); 
'¢ 
! Now that the data base is in place, store the statement type, store the RFA, and go 
: directly to the REC levei. 


CHSMOVE (6, .RFA cce CRABSW_RFA); 
CCB CISB$B_STTM_TYPE) = I1SBSR_ST_TY_FRFA; 


'¢ 
Check for virtual array usage and set block usage 


1F CCB CLUBSV_VALUSE] THEN BASSSSTOP_1O(BASSK_ILLILLACC); 
CCB CLUBSV_BLK"USE) = 1; 


IF ACTUALCOUNT () LSS K_LOCK_ARG 


FLAGS = 0 
ELSE 


a (.CCB CRABSL_ROP] AND RABSM_ULK) EQL 0 
gs BASSS$STOP_I10 (BAS$K_ILLRECLOC) 
2 FLAGS = ,LOCK_FLAGS; 
BASSSREC_FRFA (.FLAGS); 
Now that the FIND has been done, pop the CCB off the 1/0 system. 


BASS$$CB_POP (); 
END; ‘End of BASSFIND_RFA 


087C 00000 eENTRY BASSFIND_RFA, Save R2,R3,R4,R5,R6,R11 3 
$ 000000006 90 3 00 VAB BASS$STOP_IO. R6 3 | 
D OD MOVL FP, FMP 3 1349. 
: 08 C C MNEGL #8. RO > 1354 
4 AC f MOVL UNIT, R2 ; | 
000000006 0 1 JSB BASS§CB_ usH ; 
FAC CB C AS OD 1 MOVL g(FMP); =180(CCB) : 1355 
FC «AB EB O001F BLBS  -4( CCB); ; 


1290 


1560 


rr , 


54 
| BASSF IND 16-Sep-1984 AX-11 Bliss-32 V4.0-742 Page 16 
pARSS 14- ety 7 90: gf: §} BASRTL.SRCJBASF IND.B32;1 9 6) 
7 006 8F 9A MOVZBL #BASS$K_IO_CHANOT, -(SP) : 
os 1 ; CALLS ns gAssssior 10 : 
10 AB 98 BC é ; A 1$: move #6, 16(TCB) +1 
FF 8 MOVB 380s #56 wate$cECB) +1 $ 
fF AB 3 piec ©. = 1 cB), 2 : 1371 
E 006 BF 9A MOVZBL #BAS K futiteacc, -(SP) : 
66 1 Ff p CALLS #1, BAS$S$STOP_IO : 
FF AB 2 : 40 28: BISB2 #2, -1(CCB) : 1372 
0 ¢ 44 CMPB (ah), + 1374 
4 te 4 BGEQU 3$ : 
p 49 CLRL «FLAGS : 1376 
1 00048 RB 5 : | 
09 $8 60 4D 3$: BBS 4$ t 1379 
E 006 BF 9A 21 MOVZBL ees KefEARECLOC. -(SP) + 1381 
66 1 4 ; CALLS AS$S$STOP_1O 3 | 
4 11 0005 BRB ; 
52 OC AC DO 0005A 4$: MOVL ioc FLAGS, FLAGS : 1383) 
5 D0 O03 5$: MOVL FLAG R + 1385) 
900000006 16 0006 J$B BAS SREC FREA : 
00000006 16 00067 JSB BAS$$(B_POP : 1389. 
04 0006D RET ; 1390. 
; Routine Size: 110 bytes, Routine Base: _BASSCODE + 0160 
; 568 1391 1 
; 569 1 3¢ 1 
: 571 13593 1 END ‘End of module = BASS$F IND 
: 571 1394 1 
; §72 1395 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; BASSCODE 462 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC.ALIGN(2) 
: Library Statistics 
: woos == Symbols -------- Pages Processing 
3 File Total Eleded Percent Mapped Time 
> _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 


RB ee ek, ee ee ia he 


ASSF IND 1b-se -1984 00:28: AX-11 Bliss-32 V4.0-742 Pa 17 
; 12-88-1382 90:98 8 BASRTLeS aritian IND.832;1 so (6) 
H COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:BASF IND/OBJ=0BJ$:BASFIND MSRC$:BASF IND/UPDATE=(ENH$:BASF IND) 

; Sizes 462 code 4 0 data bytes 


Run Time: 214, 
Elapsed Time: OP 556 - 0 
3 Lexemes/CPU-Min: 32476 


Y Used: 129 pages 
; Compilation Complete 


ue | 
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